home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
tvcc.exe
/
TESTTVCC.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-12-31
|
6KB
|
217 lines
{$X+}
program TestTVCC;
uses Dos, Memory, Objects, Drivers, Views, Menus, Dialogs, App,
TVCC;
Const
cmTryTV = 150;
cmTryTVCC = 151;
type
TMyApp = object(TTVCCApplication)
procedure InitStatusLine; virtual;
procedure HandleEvent(var Event: TEvent); virtual;
end;
var
MyApp: TMyApp;
procedure TMyApp.InitStatusLine;
var R: TRect;
begin
GetExtent(R);
R.A.Y := R.B.Y - 1;
StatusLine := New(PStatusLine, Init(R,
NewStatusDef(0, $FFFF,
NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
NewStatusKey('~F8~ Try TV Style', kbF8, cmTryTV,
NewStatusKey('~F9~ Try TVCC Style', kbF9, cmTryTVCC,
nil))),
nil)
));
end;
FUNCTION MakeTVCCDialog : PTVCCDialog;
var
Dlg : PTVCCDialog;
R : TRect;
Control, HScroll : PView;
NewButton : PTVCCButton;
TVCCButton : PTVCCButton;
Begin
R.Assign(2,1,76,21);
New(Dlg, Init(R, 'A TVCC Dialog'));
R.Assign(15,5,27,6);
Control := New(PInputLine, Init(R, 20));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(28,5,31,6);
Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), 100)));
R.Assign(3,5,13,6);
Dlg^.Insert(New(PLabel, Init(R, '~I~nput Box', Control)));
R.Assign(33,4,44,7);
Control := New(PCheckboxes, Init(R,
NewSItem('Box 1',
NewSItem('Box 2',
NewSItem('Box 3',Nil)))));
PCluster(Control)^.SetButtonState($00000001, False);
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(32,2,43,3);
Dlg^.Insert(New(PLabel, Init(R, '~T~est Check', Control)));
R.Assign(49,4,62,6);
Control := New(PRadiobuttons, Init(R,
NewSItem('Radio 1',
NewSItem('Radio 2',Nil))));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(48,2,59,3);
Dlg^.Insert(New(PLabel, Init(R, '~T~est Radio', Control)));
R.Assign(24,10,25,16);
Control := New(PScrollbar, Init(R));
Dlg^.Insert(Control);
R.Assign(3,10,23,16);
Control := New(PListBox, Init(R, 1, PScrollbar(Control)));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(2,8,12,9);
Dlg^.Insert(New(PLabel, Init(R, '~T~est List', Control)));
R.Assign(50,10,61,13);
Control := New(PMultiCheckboxes, Init(R,
NewSItem('Box 1',
NewSItem('Box 2',
NewSItem('Box 3',Nil))), 2, cfOneBit, ' X'));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(49,8,60,9);
Dlg^.Insert(New(PLabel, Init(R, '~M~ulticheck', Control)));
{ For TVCC style buttons the TTVCCButton object must be used }
R.Assign(29,15,47,18);
NewButton := New(PTVCCButton, Init(R, '~D~efault Button', cmOk, bfDefault));
Dlg^.Insert(NewButton);
R.Assign(51,15,70,18);
TVCCButton := New(PTVCCButton, Init(R, '~N~ormal Button', cmCancel, bfNormal));
Dlg^.Insert(TVCCButton);
R.Assign(3,2,24,3);
Control := New(PStaticText, Init(R, ^C'This is a test dialog'));
Dlg^.Insert(Control);
Dlg^.SelectNext(False);
MakeTVCCDialog := Dlg;
end;
FUNCTION MakeTVDialog : PDialog;
var
Dlg : PDialog;
R : TRect;
Control, HScroll : PView;
Begin
R.Assign(2,1,76,21);
New(Dlg, Init(R, 'Normal Turbo Vision Gray Dialog'));
R.Assign(15,5,27,6);
Control := New(PInputLine, Init(R, 20));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(28,5,31,6);
Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), 100)));
R.Assign(3,5,13,6);
Dlg^.Insert(New(PLabel, Init(R, '~I~nput Box', Control)));
R.Assign(33,4,44,7);
Control := New(PCheckboxes, Init(R,
NewSItem('Box 1',
NewSItem('Box 2',
NewSItem('Box 3',Nil)))));
PCluster(Control)^.SetButtonState($00000001, False);
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(32,2,43,3);
Dlg^.Insert(New(PLabel, Init(R, '~T~est Check', Control)));
R.Assign(49,4,62,6);
Control := New(PRadiobuttons, Init(R,
NewSItem('Radio 1',
NewSItem('Radio 2',Nil))));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(48,2,59,3);
Dlg^.Insert(New(PLabel, Init(R, '~T~est Radio', Control)));
R.Assign(24,10,25,16);
Control := New(PScrollbar, Init(R));
Dlg^.Insert(Control);
R.Assign(3,10,23,16);
Control := New(PListBox, Init(R, 1, PScrollbar(Control)));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(2,8,12,9);
Dlg^.Insert(New(PLabel, Init(R, '~T~est List', Control)));
R.Assign(50,10,61,13);
Control := New(PMultiCheckboxes, Init(R,
NewSItem('Box 1',
NewSItem('Box 2',
NewSItem('Box 3',Nil))), 2, cfOneBit, ' X'));
Control^.Options := Control^.Options OR ofFramed;
Dlg^.Insert(Control);
R.Assign(49,8,60,9);
Dlg^.Insert(New(PLabel, Init(R, '~M~ulticheck', Control)));
R.Assign(29,15,47,17);
Control := New(PButton, Init(R, '~D~efault Button', cmOk, bfDefault));
Dlg^.Insert(Control);
R.Assign(51,15,70,17);
Control := New(PButton, Init(R, '~N~ormal Button', cmCancel, bfNormal));
Dlg^.Insert(Control);
R.Assign(3,2,24,3);
Control := New(PStaticText, Init(R, ^C'This is a test dialog'));
Dlg^.Insert(Control);
Dlg^.SelectNext(False);
MakeTVDialog := Dlg;
end;
procedure TMyApp.HandleEvent(var Event: TEvent);
begin
inherited HandleEvent(Event);
Case Event.What of
evCommand : Case Event.Command of
cmTryTV : Application^.ExecuteDialog(MakeTVDialog, NIL);
cmTryTVCC : Application^.ExecuteDialog(MakeTVCCDialog, NIL);
end;
end;
end;
begin
MyApp.Init;
MyApp.Run;
MyApp.Done;
end.